00100	.PORTION !NONAME ;
00200	.FILL; ADJUST; RETAIN; APART;
00250	.!XGPLFTMAR←200; !XGPCOMMANDS←NULL;
00300	.PAGE FRAME 53 HIGH 69 WIDE;
00400	.AREA TEXT LINE 4 TO 51;
00500	.PLACE TEXT;
00600	.AT NULL ⊂ IF FILLING THEN BREAK ELSE SKIP 1 ;; ⊃
00700	.MACRO SINGLE SPACE ⊂ BREAK ; SPREAD ← 1 ; ⊃
00800	.MACRO DOUBLE SPACE ⊂ BREAK ; SPREAD ← 2 ; ⊃
00900	.MACRO TRIPLE SPACE ⊂ BREAK ; SPREAD ← 3 ; ⊃
01000	.TITLE AREA HEADING LINES 1 TO 3
01100	.TITLE AREA FOOTING LINE 53
01200	.!HF ← !EH ← !OH ← !EF ← !OF ← NULL
01300	.MACRO EVERY HEADING(L,C,R) ⊂ !EH ← !OH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01400	.MACRO EVERY FOOTING(L,C,R) ⊂ !EF ← !OF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01500	.MACRO EVEN HEADING(L,C,R) ⊂ !EH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01600	.MACRO ODD  HEADING(L,C,R) ⊂ !OH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01700	.MACRO EVEN FOOTING(L,C,R) ⊂ !EF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01800	.MACRO ODD  FOOTING(L,C,R) ⊂ !OF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
01900	.MACRO STANDARD TITLES ⊂ IF !HF THEN BEGIN NOFILL TURN ON "←", "→", "{" INDENT 0,0
02000	.	PLACE HEADING IF EVEN PAGE THEN !EH ELSE !OH
02100	.	PLACE FOOTING IF EVEN PAGE THEN !EF ELSE !OF	END ⊃
02200	.BEFORE PAGE ⊂ IF !HF THEN STANDARD TITLES ;; ⊃
02300	.MACRO TABBREAK ⊂ AT 8 ⊂ IF FILLING THEN BREAK ELSE "        " ⊃ ⊃
02400	.MACRO TABSPACE ⊂ AT 8 ⊂⊃ ⊃
02500	.NOFILL PREFACE 0
02600	.FILL PREFACE 1